home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Super Shareware Collection
/
Super Shareware Collection.iso
/
os_2
/
clisp.zip
/
STDWIN.LSP
< prev
next >
Wrap
Text File
|
1994-02-05
|
284b
|
15 lines
;; STDWIN-Paket
;; Bruno Haible 29.8.1993
(in-package "STDWIN" :use '("LISP"))
(defmacro drawing (window &body body)
(let ((w (gensym)))
`(LET ((,w ,window))
(BEGIN-DRAWING ,w)
(UNWIND-PROTECT (PROGN ,@body)
(END-DRAWING ,w)
) )
) )